home *** CD-ROM | disk | FTP | other *** search
/ Internet Surfer: Getting Started / Internet Surfer - Getting Started (Wayzata Technology)(7231)(1995).bin / pc / mac / bonus / peter_le / finger_1 / tokens / fingered.p < prev    next >
Text File  |  1991-11-14  |  206b  |  17 lines
  1. unit FINGERED;
  2.  
  3. interface
  4.  
  5.     uses
  6.         ParameterDef;
  7.  
  8.     procedure Main (var p: parameterRecord);
  9.  
  10. implementation
  11.  
  12.     procedure Main (var p: parameterRecord);
  13.     begin
  14.         p.returnValue^ := p.fingeredname^;
  15.     end;
  16.  
  17. end.